home *** CD-ROM | disk | FTP | other *** search
/ PD ROM 1 / PD ROM Volume I - Macintosh Software from BMUG (1988).iso / Programming / Languages / Jeff Interpreter Docs / Fibonacci upwards < prev    next >
Encoding:
Text File  |  1986-12-08  |  1.2 KB  |  35 lines  |  [TEXT/JEFF]
  1. 00 NOOP        THIS PROGRAM CREATE IN THE DATA STACK THE FIRST N
  2. 01 NOOP        FIBONACCI NUMBERS IN THE UPWARD ORDER. TO GET A
  3. 02 NOOP        NEW  FIBONACCI NUMBER YOU ADD UP THE LAST TWO YOU
  4. 03 NOOP        GOT AND THE FIRST TWO  FIBONACCI NUMBERS ARE 1.
  5. 04 NOOP        --------------------------------------------------
  6. 05 ILIT 2      ADDRESS 0 STORES THE OFFSET FOR THE # NEXT TO THE LAST
  7. 06 ILIT 13     N = 15----STORES THE # OF NUMBERS NEEDED TO GET
  8. 07 ILIT 1
  9. 08 ILIT 1      PUSH THE FIRST TWO FILSONACCI NUMBERS
  10. 09 NOOP        ----------------------------------------
  11. 10 LOAD 0 1
  12. 11 ILIT 0
  13. 12 LSEQ        TEST WHETHER THE CONTENT OF ADDRESS 1 IS <= 0
  14. 13 BRTR 32
  15. 14 NOOP        ----------------------------------
  16. 15 DUPL        DUPLICATE THE LAST ONE
  17. 16 LOAD 0 0
  18. 17 REF 0 0
  19. 18 ADD         PRODUCE THE ADDRESS OF THE ONE NEXT TO THE LAST
  20. 19 ILOD
  21. 20 ADD         PRODUCE A NEW FILSONACCI NUMBER
  22. 22 NOOP        ------------------------------------
  23. 22 LOAD 0 0
  24. 23 ILIT 1
  25. 24 ADD         UPDATE THE OFFSET
  26. 25 STOR 0 0
  27. 26 NOOP        ------------------------------------
  28. 27 LOAD 0 1
  29. 28 ILIT 1
  30. 29 SUB         UPDATE ADDRESS 1
  31. 30 STOR 0 1
  32. 31 BUNC 10     -------------------------------------
  33. 32 STOP
  34. DUMP
  35.